(vl-string-subst )